Function Main(Player As Long, InvSlot As Long, ObjectNum As LONG) As LONG
   Main = Continue
End Function